home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / MPascal / saveconf.ged < prev    next >
Encoding:
Text File  |  1994-09-12  |  479 b   |  27 lines
  1. /*
  2. ** $VER: saveconf 0.001 (10 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** FUNCTION : Speicher der eingestellten Optionen im Verzeichnis S: unter dem
  7. **            Namen MPascal.config
  8. **
  9. */
  10.  
  11.  
  12. host = ADDRESS()                              /* get GED's port    */
  13.  
  14. IF show('p', 'MPASCAL') THEN
  15.  
  16.     do
  17.         ADDRESS MPASCAL
  18.         "saveconf S:MPascal.config"
  19.     end
  20. else 
  21.     do
  22.         ADDRESS (host)
  23.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  24.     end
  25.  
  26. EXIT
  27.